home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00004_Tmenu button.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  1.5 KB  |  56 lines
  1. property ancestor
  2.  
  3. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  4.   if objectp(descendant) then
  5.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  6.   else
  7.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, me)
  8.   end if
  9.   return me
  10. end
  11.  
  12. on performFunction me
  13.   global IconList1, IconList2, CreditList, gTourForwardArrow, gTourBackArrow, firstTime
  14.   sound stop 1
  15.   set the puppet of sprite 7 to 1
  16.   sprite(7).visible = 1
  17.   set the puppet of sprite 7 to 0
  18.   set the puppet of sprite 15 to 0
  19.   set the puppet of sprite 8 to 0
  20.   firstTime = 1
  21.   repeat with z = 2 to 10
  22.     if not (the memberNum of sprite z = 0) then
  23.       if member(the member of sprite z).type = #digitalVideo then
  24.         sprite(z).movieRate = 0
  25.         sprite(z).visible = 0
  26.         set the puppet of sprite z to 0
  27.         updateStage()
  28.       end if
  29.     end if
  30.   end repeat
  31.   if marker(0) = label("Navigation") then
  32.     repeat with X = 6 to 13
  33.       iconObj = getaProp(IconList1, X)
  34.       outScope(iconObj)
  35.     end repeat
  36.     outScope(gTourForwardArrow)
  37.   end if
  38.   if marker(0) = label("3.3") then
  39.     repeat with X = 5 to 12
  40.       iconObj = getaProp(IconList2, X)
  41.       outScope(iconObj)
  42.     end repeat
  43.     outScope(gTourForwardArrow)
  44.   end if
  45.   if marker(0) = label("Credits") then
  46.     repeat with X = 5 to 7
  47.       creditObj = getaProp(CreditList, X)
  48.       outScope(creditObj)
  49.     end repeat
  50.   end if
  51.   outScope(gTourForwardArrow)
  52.   outScope(gTourBackArrow)
  53.   updateStage()
  54.   go(label("TMenu"))
  55. end
  56.